home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 7
/
Commodore_Disc_07_19xx_-_de.d64
/
caverns part iii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
7KB
|
93 lines
5 rem basic loader caverns sprites
6 :
20 data0,124,0,0,146,0,0,238,0,0,238,0,0,56,0,0,0,0,0,56,0,0,16,0,3,147,128,4
30 data0,64,4,214,64,5,17,64,4,214,64,5,17,64,0,214,0,9,17,32,8,214,32,8,0,32
40 data8,124,32,0,130,0,8,130,32,0,8,126,32,8,130,32,0,130,0,0,130,0,0,130,0,0
50 data130,0,0,0,0,0,130,0,0,130,0,0,130,0,0,130,0,0,130,0,0,130,0,0,0,0,1,131
60 data0,3,1,128,6,0,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,28,0,0,62,0,0,127,0
70 data0,255,128,3,255,224,1,0,64,1,99,64,0,182,128,0,128,128,0,193,128,1,93,64
80 data2,34,32,4,54,16,9,28,136,16,8,132,33,0,66,82,0,67,90,0,45,79,224,113,64
90 data96,65,66,64,224,97,32,160,34,33,160,98,33,48,162,33,31,34,65,46,97,49,46
100 data70,60,238,220,38,198,178,35,134,226,34,32,66,32,66,4,36,0,36,36,66,36,40
110 data1,20,40,129,24,16,129,8,8,128,136,17,0,136,17,63,132,15,192,120,66,0,129
120 data0,0,129,0,0,255,0,32,90,4,48,102,12,24,126,24,12,36,48,6,24,96,3,255,192
130 data1,255,128,0,255,0,0,126,0,0,126,0,0,126,0,0,126,0,0,102,0,0,102,0,0,102
140 data0,0,102,0,0,102,0,0,231,0,0,0,60,0,0,126,0,7,90,224,15,126,240,31,165,248
150 data27,219,216,27,231,216,27,255,216,27,255,216,15,255,240,15,255,240,1,231
160 data128,0,231,0,0,231,0,0,231,0,0,231,0,0,231,0,1,231,128,0,0,0,0,0,0,0,0,0
170 data0,0,0,0,0,126,0,3,129,192,12,0,48,112,0,14,124,0,62,127,129,254,127,255
180 data254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255
190 data254,127,255,254,127,255,254,127,255,254,127,255,254,15,255,240,3,255,192
200 data0,126,0,255,0,0,0,0,60,0,0,126,0,0,255,0,1,255,128,1,255,128,1,255,128
210 data3,255,192,12,255,48,16,126,8,17,56,136,18,219,72,2,24,64,4,90,32,4,189
220 data32,4,153,32,1,0,128,1,0,128,1,0,128,0,0,0,0,0,0,255,0,126,0,0,255,0,1,255
230 data128,7,255,224,11,255,208,7,255,224,7,255,224,11,255,208,19,255,200,9,255
240 data144,6,255,96,4,126,32,8,60,16,4,60,32,2,24,64,1,60,128,0,66,0,0,129,0,0
250 data0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,48,0,0,64,0,0,248,0,4,224,0,63,64,1
260 data63,0,7,255,0,31,252,0,63,251,192,63,208,0,63,212,0,31,65,128,18,64,0,18
270 data64,0,36,128,0,73,0,0,144,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
280 data0,0,1,0,0,1,128,0,0,192,0,0,95,190,0,31,191,0,0,1,0,0,1,0,0,1,0,31,191
290 data0,95,190,0,192,0,1,128,0,1,0,0,0,0,0,0,0,0,0,0,0,253,0,0,0,0,0,0,0,0,0
300 data128,0,0,188,0,0,1,240,0,0,0,0,5,72,0,202,168,48,42,160,114,96,2,242,47
310 data239,152,96,2,242,42,160,114,202,168,48,5,72,0,0,0,0,1,240,0,180,0,0,128
320 data0,0,0,0,0,253,124,60,0,254,90,0,254,102,0,254,126,0,254,102,0,254,66,0
330 data124,60,0,24,24,0,24,60,0,12,255,0,7,255,192,3,255,224,1,255,176,1,255,176
340 data1,255,152,1,255,152,1,255,136,1,255,140,1,255,132,0,255,4,0,255,0,255,0
350 data255,0,0,255,0,0,255,0,0,231,0,0,231,0,0,231,0,0,231,0,0,231,0,0,231,0,0
360 data231,0,0,231,0,0,231,0,1,231,128,3,231,192,7,129,224,7,0,224,0,0,0,0,0,0
370 data0,0,0,0,0,0,0,0,0,255,0,0,0,28,0,48,3,231,192,0,24,0,0,60,0,131,153,193
380 data240,126,15,140,60,49,69,255,194,32,60,4,16,255,8,35,24,132,28,60,120,0
390 data255,0,3,126,192,12,126,48,0,255,0,1,126,128,1,126,128,1,60,128,2,24,64
400 data0,0,60,0,0,102,0,0,90,0,0,36,0,0,24,0,0,60,0,0,255,0,9,126,128,10,126,128
410 data12,126,128,8,126,128,8,126,128,8,126,128,8,126,0,8,102,0,8,102,0,8,102
420 data0,8,102,0,8,102,0,8,102,0,0,231,0,0,0,0,0,0,126,0,0,255,0,1,195,128,1,165
430 data128,1,129,128,1,153,128,0,66,0,0,60,0,0,24,0,0,255,0,1,126,128,1,126,128
440 data2,126,64,2,126,64,2,126,64,0,102,0,0,102,0,0,102,0,0,231,0,1,195,128,0
450 data0,60,0,0,60,0,0,60,0,0,60,0,0,126,0,0,36,0,0,74,0,0,66,0,0,68,0,0,56,0
460 data0,16,0,0,248,0,1,248,0,2,240,0,4,240,0,8,240,0,16,240,0,0,224,0,0,224,0
470 data0,240,0,0,248,0,0,0,60,0,0,60,0,0,60,0,0,60,0,0,126,0,0,36,0,0,74,0,0,66
480 data0,0,68,0,0,56,0,0,16,0,0,248,0,1,248,0,2,240,0,4,240,0,8,240,0,16,240,0
490 data0,208,0,1,152,0,3,24,0,3,142,0,0,0,255,192,0,255,192,0,255,192,0,255,192
500 data0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0
510 data255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255
520 data192,0,255,192,0,255,192,0,240,0,0,248,0,0,252,0,0,254,0,0,255,0,0,255,128
530 data0,255,192,0,127,224,0,63,240,0,31,248,0,15,252,0,7,254,0,3,255,0,1,255
540 data128,0,255,192,0,127,224,0,63,240,0,31,248,0,15,252,0,7,254,0,3,255,0,0
550 data0,0,0,1,192,0,11,160,0,59,224,0,251,224,1,251,0,3,251,192,7,252,0,7,254
560 data0,7,252,16,15,255,248,15,255,248,15,127,224,31,112,0,31,112,0,30,240,0
570 data30,248,0,60,248,0,60,120,0,60,56,0,48,60,0,0,0,0,0,0,0,0,0,0,0,28,0,0,246
580 data0,0,124,0,0,15,0,0,126,0,0,31,128,0,127,0,0,63,224,0,79,192,0,31,248,0
590 data111,240,0,39,254,0,67,252,128,3,63,160,6,7,232,12,0,252,24,1,135,0,0,0
600 data255,0,28,0,1,246,31,3,254,15,0,31,7,1,255,7,0,31,3,0,31,3,0,31,7,0,62,7
610 data48,62,15,8,62,15,63,255,159,15,255,254,19,255,255,33,255,255,1,255,255
620 data3,255,255,7,255,255,31,255,255,127,255,255,84,0,0,255,0,0,0,0,0,0,224,0
630 data0,248,0,0,254,0,0,255,0,0,252,0,0,254,0,0,240,2,0,248,7,0,192,2,0,224,3
640 data0,0,3,0,128,3,0,224,7,0,248,14,0,254,28,0,255,252,0,255,248,0,255,240,0
650 data42,0,0,255,0,0,0,0,0,0,0,0,0,7,192,0,31,254,0,63,255,128,127,255,192,239
660 data255,224,255,255,240,255,255,248,207,255,252,255,255,220,127,255,238,63
670 data127,238,31,127,246,31,187,246,15,187,251,7,119,251,1,239,247,3,239,238
680 data7,224,25,255,0,0,0,0,3,0,0,3,128,0,25,192,0,60,192,0,126,32,0,90,16,0,126
690 data32,0,36,64,0,24,128,0,255,0,1,126,0,2,126,0,1,126,0,0,254,0,0,126,0,0,102
700 data0,0,102,0,0,102,0,0,102,0,0,231,0,255,0,16,0,0,56,0,0,124,0,0,254,0,1,171
710 data0,0,146,0,0,130,0,0,186,0,0,108,0,0,56,0,0,124,0,0,254,0,1,125,0,1,125
720 data0,1,125,0,1,125,0,0,108,0,0,108,0,0,108,0,0,108,0,0,238,0,255,128,16,1
730 data64,124,2,33,131,4,18,16,136,12,16,112,20,56,192,34,85,32,33,146,16,65,85
740 data8,65,57,8,255,255,255,65,53,8,33,72,8,32,221,144,19,48,80,20,16,32,8,16
750 data80,20,16,136,35,17,4,64,254,2,128,16,1,255,0,0,0,0,0,0,0,0,64,0,0,96,0
760 data0,208,0,1,252,0,1,224,0,3,252,0,7,224,15,255,224,63,255,192,127,255,192
770 data127,255,128,127,255,128,223,127,0,155,31,0,51,27,0,51,25,0,24,140,128,4
780 data66,64,2,1,0,255,0,0,0,0,36,0,0,36,0,0,60,0,48,90,12,30,102,120,17,60,136
790 data8,153,16,8,126,16,8,60,16,4,60,32,4,60,32,3,189,192,0,126,0,0,60,0,0,102
800 data0,0,195,0,1,129,128,3,0,192,5,0,160,0,0,0,0,0,0,0,0,0,0,60,0,0,106,0,0
810 data182,192,0,190,240,0,190,254,0,99,255,128,127,255,192,127,127,224,126,253
820 data240,62,253,240,62,253,240,30,222,248,29,222,248,29,222,248,13,142,240,11
830 data158,240,7,30,120,7,28,56,2,24,24
835 fori=50304to52350:reada:pokei,a:next
840 print"[147](d)iskette oder (k)assette "
850 geta$:ifa$<>"d"anda$<>"k"then850
860 ifa$="d"thengn=8
870 ifa$="k"thengn=1
880 sys(57812)"caverns sprites",8:poke193,127:poke194,196:poke174,128:poke175,204
890 sys62957
900 print"die daten sind gespeichert."